home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / hip211.lha / ARexx / HiP_get.rexx < prev    next >
OS/2 REXX Batch file  |  1992-09-02  |  780b  |  54 lines
  1. /* HippoPlayer - Get some information from HiP */
  2.  
  3. options results
  4.  
  5. address 'HIPPOPLAYER'
  6.  
  7. get play
  8. if result == 1 then do
  9.     say "HiP is playing"
  10. end
  11. else do
  12.     say "HiP is not playing"
  13. end
  14.  
  15. get name
  16. say "Loaded module:" result
  17.  
  18. get fnam
  19. say "Full name of the loaded module:" result
  20.  
  21. get type
  22. say "Type of the loaded module:" result
  23.  
  24. get size
  25. say "Size of the loaded module:" result
  26.  
  27. get comm
  28. say "Filecomment for the loaded module:" result
  29.  
  30. get curr
  31. say "Number of the loaded module:" result
  32.  
  33. get csng
  34. say "Current song:" result
  35.  
  36. get nsng
  37. say "Number of songs:" result
  38.  
  39. get cspo
  40. say "Current songposition:" result
  41.  
  42. get mspo
  43. say "Maximum songposition:" result
  44.  
  45. get cfil
  46. say "Chosen file number:" result
  47.  
  48. get cnam
  49. say "Chosen file name:" result
  50.  
  51. get nfil
  52. say "Files in list:" result
  53.  
  54.